home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Freeware / TGest / Installa < prev    next >
Encoding:
Text File  |  2002-03-13  |  1.9 KB  |  57 lines
  1. ;
  2. ; $VER: Script di Installazione di TurboGestioneFREE v2.0 (10.03.02)
  3. ;
  4.  
  5. (set @default-dest "Work:")
  6. (set #wrongOS   (cat "TurboGestioneFREE necessita\n"
  7.                      "dell'OS2.0 o superiore!\n"))
  8. (set #TGest_dir (cat "Scegli il cassetto o la partizione\n"
  9.                      "dove installare il cassetto TGest.\n"
  10.                      "Se il cassetto esiste già, allora seleziona\n"
  11.                      "il cassetto o la partizione che lo contiene."))
  12. (set #done      (cat "TurboGestioneFREE è stato installato\n"
  13.                      "con successo nel cassetto.\n\n"))
  14.  
  15. (set OS_ver (getversion "exec.library" (resident)))
  16. (if (< OS_ver (* 37 65536)) (abort #wrongOS))
  17.  
  18. (complete 0)
  19. (set TGest_def_dir @default-dest)
  20. (set TGest_dir
  21.         (askdir
  22.                 (default TGest_def_dir)
  23.                 (prompt  #TGest_dir)
  24.                 (help    @askdir-help)
  25.         )
  26. )
  27.  
  28. (set TGest_dir (tackon TGest_dir "TGest"))
  29. (set Doc_dir   (tackon TGest_dir "Doc"))
  30. (set Pro_dir   (tackon TGest_dir "Prospetti"))
  31.  
  32. (if (NOT (exists TGest_dir)) (makedir TGest_dir (infos)))
  33. (if (NOT (exists Doc_dir))   (makedir Doc_dir   (infos)))
  34. (if (NOT (exists Pro_dir))   (makedir Pro_dir))
  35.  
  36. (complete 10)
  37. (copyfiles (source "TFat2")     (dest TGest_dir) (infos) (help @copyfiles-help))
  38. (complete 30)
  39. (copyfiles (source "TMag")      (dest TGest_dir) (infos) (help @copyfiles-help))
  40. (complete 50)
  41. (copyfiles (source "ProspEd")   (dest TGest_dir) (infos) (help @copyfiles-help))
  42. (complete 60)
  43. (copyfiles (source "ProspEdNG") (dest TGest_dir) (infos) (help @copyfiles-help))
  44. (complete 70)
  45. (copyfiles (source "Adesivi")   (dest TGest_dir) (infos) (help @copyfiles-help))
  46. (complete 80)
  47.  
  48. (copyfiles (source "Prospetti/") (dest Pro_dir)  (all)   (help @copyfiles-help))
  49. (complete 90)
  50. (copyfiles (source "Doc/")       (dest Doc_dir)  (all)   (help @copyfiles-help))
  51. (complete 100)
  52.  
  53. (message #done "\"" TGest_dir "\"")
  54.  
  55. (exit)
  56.  
  57.